home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / HyperCard Archives / International / French v1.2.5.1 / Piles principales / Téléphone / background_2152.txt < prev    next >
Text File  |  1989-09-15  |  4KB  |  175 lines
  1. -- background: 2152 from stack: in
  2. -- bmap block id: 2542
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Phone
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 4000
  11. -- rect: left=385 top=157 right=175 bottom=436
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Extérieur
  20. ----- HyperTalk script -----
  21. on closeField
  22.   put the short name of the target into nomChamp
  23.   repeat with x = the number of chars in field nomChamp down to 1
  24.     if char x of field nomChamp is not in "0123456789,"
  25.     then delete char x of field nomChamp
  26.   end repeat
  27. end closefield
  28.  
  29.  
  30.  
  31. -- part 40 (field)
  32. -- low flags: 00
  33. -- high flags: 4000
  34. -- rect: left=385 top=174 right=192 bottom=436
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 0
  41. -- line height: 12
  42. -- part name: Province-Paris
  43. ----- HyperTalk script -----
  44. on closeField
  45.   put the short name of the target into nomChamp
  46.   repeat with x = the number of chars in field nomChamp down to 1
  47.     if char x of field nomChamp is not in "0123456789,"
  48.     then delete char x of field nomChamp
  49.   end repeat
  50. end closefield
  51.  
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 00
  56. -- high flags: 4000
  57. -- rect: left=385 top=191 right=209 bottom=436
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 9
  63. -- style flags: 0
  64. -- line height: 12
  65. -- part name: Paris-Province
  66. ----- HyperTalk script -----
  67. on closeField
  68.   put the short name of the target into nomChamp
  69.   repeat with x = the number of chars in field nomChamp down to 1
  70.     if char x of field nomChamp is not in "0123456789,"
  71.     then delete char x of field nomChamp
  72.   end repeat
  73. end closefield
  74.  
  75.  
  76.  
  77. -- part 27 (field)
  78. -- low flags: 00
  79. -- high flags: 4000
  80. -- rect: left=385 top=208 right=226 bottom=436
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 9
  86. -- style flags: 0
  87. -- line height: 12
  88. -- part name: International
  89. ----- HyperTalk script -----
  90. on closeField
  91.   put the short name of the target into nomChamp
  92.   repeat with x = the number of chars in field nomChamp down to 1
  93.     if char x of field nomChamp is not in "0123456789,"
  94.     then delete char x of field nomChamp
  95.   end repeat
  96. end closefield
  97.  
  98.  
  99.  
  100. -- part 20 (field)
  101. -- low flags: 01
  102. -- high flags: 0000
  103. -- rect: left=419 top=39 right=57 bottom=465
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Heure
  112.  
  113.  
  114. -- part 44 (button)
  115. -- low flags: 00
  116. -- high flags: E006
  117. -- rect: left=79 top=205 right=223 bottom=215
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 3
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 13
  125. -- part name: Sans modem
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   set hilite of bkgnd button "sans modem" to true
  129.   set hilite of bkgnd button "modem (tonalit√©)" to false
  130.   set hilite of bkgnd button "modem (impulsions)" to false
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 45 (button)
  136. -- low flags: 00
  137. -- high flags: A006
  138. -- rect: left=79 top=222 right=240 bottom=215
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 3
  143. -- text size: 10
  144. -- style flags: 0
  145. -- line height: 13
  146. -- part name: Modem (tonalité)
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   set hilite of bkgnd button "sans modem" to false
  150.   set hilite of bkgnd button "modem (tonalit√©)" to true
  151.   set hilite of bkgnd button "modem (impulsions)" to false
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 46 (button)
  157. -- low flags: 00
  158. -- high flags: A006
  159. -- rect: left=79 top=239 right=257 bottom=215
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 3
  164. -- text size: 10
  165. -- style flags: 0
  166. -- line height: 13
  167. -- part name: Modem (impulsions)
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   set hilite of bkgnd button "sans modem" to false
  171.   set hilite of bkgnd button "modem (tonalit√©)" to false
  172.   set hilite of bkgnd button "modem (impulsions)" to true
  173. end mouseUp
  174.  
  175.